home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
pc
/
mac_file
/
vendor_d
/
neuralwa
/
nw2v50
/
art1webr.igb
< prev
next >
Wrap
Text File
|
1993-08-23
|
2KB
|
75 lines
inst4.1 !Sept 1, 1992
!****************************************************************
!* *
!* ART1 Weber Law *
!* *
!****************************************************************
!
@LLsl !Load super-layer
=n0 Lpes !Number of layers
=LayN 0
:F1Lp
+LayN 1 !next layer
?LayN n0
>bgt WLEnd !past output layer
@LLly !load the layer
?Llrn "ART 1" !is this an ART layer?
>bne F1Lp !no, try again
?Lcmp "Direct" !is this F1 layer?
>bne WLEnd !F1 should come before F2 layer
=n2 Lpes
=NPEl LayN !Near layer
=n4 LDnr !#rows
:F2Lp
+LayN 1 !next layer
?LayN n0
>bgt WLEnd !past output layer
@LLly !load the layer
?Llrn "ART 1" !is this an ART layer?
>bne F2Lp !no, try again
?Lcmp "Direct" !is this F1 layer?
>beq WLEnd !F2 layer is not direct output
=n3 Lpes
=SPEl LayN !Selected layer
! Add probe
=PNam "F1F2" !probe name
@PbAS !Add Probe
@PbDC !Delete all components
@PAAC !Active component
! Now build the instrument
@ILdD !load default instrument
=ITit "Weber Law" !Instrument title
=IGTy "Hinton" !Graph Type
=IGVr "Weight" !Variable
=ITTy "RMS" !RMS Transformation Type
=ITMd 0 !No transformation
=IEpc 0 !No epoch
=n0 n2 !#PEs in F1 layer
=n1 n4 !#rows in display
! standard bar graph parameters
#Incl "barparms.iif"
=Ivmn 0.0
=Ivmx 0.2
=ILnA 1 !Active in Learn
=IRcA 1 !Active in recall
=ILDv 1 !Every iteration
=ILRm 0
=IRDv 0
=IRRm 0
=IPrb PNam !Point to probe
=ICAc 0 !Convergence criterion inactive
=ICTh 0.0 !Convergence Threshold
!Let NeuralWorks figure out where to put instrument
=x 0
=y 0
@IAdd !Now create instrument
:WLEnd